   1 .
   2 .SPINNING WHEEL
   3 .
  10 BC=200;FC=215
  15 gosub 250
  17 &(10)=176
  20 NT=1
  30 clear 
  40 Z=0
  50 CX=-20;CY=25;print "SPINNING
  55 box 29,0,20,10,3
  60 for A=rnd (30)
  70 CX=-10;CY=0
  80 print A
  90 B=rnd (30)mul 2;box -50,-20,B,B,3
 100 Z=Z+1
 110 if Z<5goto 60
 120 clear 
 130 CX=-10;CY=35
 140 print "STOP
 145 for Z=1to 250;next Z
 150 CY=20;print "    WINNING NUMBER IS
 152 for Z=1to 250;next Z
 155 CX=-15;CY=0
 156 print "right  ",#1,A,"  "
 160 for M=1to 2000;next M
 170 CY=-25;print "    PLACE YOUR BETS!
 180 print "   MAX. 4 NO. PER PERSON
 190 M=KP
 191 if M=13goto 15
 192 if M=49goto 350
 193 if M=50goto 500
 194 if M=51goto 600
 195 goto 190
 250 clear ;Z=0
 255 NT=0
 260 &(10)=142
 270 Z=Z+1
 280 if Z=27goto 300
 290 CY=-23;print " GOOD LUCK !               ",;goto 270
 300 for Z=1to 1500;next Z;clear ;return 
 350 BC=111;&(9)=255;clear ;line -80,10,0
 351 FC=0;&(10)=176;NT=3
 360 for A=-80to 80;line A,rnd (ABS(A)+1)-10,1
 370 next A;line 0,-10,0;A=10
 380 for C=1to 20step 2;A=A+C;B=Adiv 6;box A-3,-B,1+Bdiv 2,Bmul 10,1
 390 box A-3,Bmul 3,Bmul 5,1+Bdiv 2,1;next C;for A=-30to 30
 400 line A,-44,1;line 0,-10,0;next A;for A=-44to -11step 8
 410 box 0,A,ABS(A)div 10,ABS(A)div 6,2
 411 NT=10;CY=-15;print " P.A.S.S.
 412 CY=-25;print "  BOOTH
 413 next A;for Z=1to 5000;next Z
 419 NT=1
 420 &(9)=50;BC=200;FC=215;goto 170
 500 clear ;&(21)=0;&(10)=176;NT=3;box 0,-40,158,6,1
 505 BC=240;FC=7
 510 for A=1to 50;box rnd (160)-80,rnd (88)-44,1,1,1;next A
 520 box 0,-20,30,10,1;box 0,0,20,30,1
 530 line 0,0,0;line -40,-40,1;line 40,-40,1;line 0,0,1
 540 line 0,-20,0;line -40,-40,1;line 40,-40,1;line 0,-20,1;CY=44
 550 print " WE'RE OUT OF THIS WORLD
 560 for Z=1to 750;next Z;box 0,-10,5,10,2
 570 for Z=1to 1500;next Z;box 45,-20,2,38,1;box 58,-9,20,14,1
 580 box 53,-6,8,6,2;box 58,-15,18,1,2;box 58,-13,18,1,2;box 58,-11,18,1,2
 590 box 62,-9,9,1,2;box 62,-7,9,1,2;box 62,-5,9,1,2;NT=1;for Z=1to 5000;next Z;goto 170
 600 clear ;NT=0
 605 BC=122;FC=7
 610 for A=35to 37;clear 
 620 for B=1to 285;TV=A;next B
 625 for C=-80to 75step 4;box C,0,1,88,3;next C
 628 for C=43to -43step -2;box -2,C,156,1,3;next C
 630 for X=1to 1500;next X
 632 if A=35goto 650
 633 if A=36goto 700
 635 next A
 640 BC=200;FC=215
 645 NT=1;for Z=1to 5000;next Z;clear ;goto 170
 650 clear 
 651 NT=7
 653 print ;print ;print "    PARENT ASSOCIATION";print ;print "            OF";print 
 655 print "    SCHOFIELD SCHOOL
 660 print ;print ;print ;print " WELCOMES YOU TO THE FAIR!
 664 NT=0
 665 for Z=1to 3500;next Z
 670 goto 635
 700 .
 701 NT=4
 705 print ;print ;print ;print ;print ;print ;print ;print ;print ;print ;print ;print 
 715 CY=0;print "      HAVE A NICE DAY    "
 720 goto 664
run 